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These routines assume that the QVSS has been set up properly by the 
MicroVax I microcode. 


2222 


3223333 


Author: 
Len Kawell, D. N. Cutler 28-Dec-83 
Modified by: 
V1.0-02 Bill Matthews 9%-Jul-84 
Modify for VAX/VMS SYSBOOT and SYSLOAWS1. 
V1.0-01 D. N. Cutler 13-Mar-84 
Add 15/19 inch video screen crt parameters. 
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| QVSS Input and Output 16-SEP-1984 00:16:0 AX/VMS Macro v04-00 P 
hee: : - 46-SEP-1984 t 99:36:98 Yeoors Re QVSS.MAR;1 —* 
00 1 title Qv Nput and Output 
: ¢ eident /V 2.45 BY . 
| 33 : $ eeseqonconoosoesseeeoeonesonenennennnssoneneneonennonnannesoboneceneeenenses 
D4 & 
00 5 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY « 
990 § 3* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. J 
8 ALL RIGHTS RESERVED. : 
$009 9 3* THIS V Is A ght wee A LICENSE AND MAY BE USED AND COPIED * 
B88 1 :* ONLY IN ACCORDANCE WITH THE TER A OF SUCH LICENSE AND WITH THE * 
0 15 ;* INCLUSION OF THE ABOVE geet NOTICE. THIS SOFTWARE OR ANY OTHER * 
000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4464 16 :* TRANSFERRED. - 
iit 18 * i gh ory he IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
88 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
88 * CORPORATION. . 
0000 § 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
33 
88 — 374 4 4 
0000 8° 
B83 gp 
88 Facility: MicroVAX I system bootstrap 
464 35 Abstract: 
0000 35 This set of subroutines provides access to the QVSS keyboard and video 
494 — screen. 
0000 8 ; Environment: 
0000 9 
40 
8 
tg 
44 
8 
8 
48 
49 
0 
: 
i 
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868 Input and Output 16-SEP-19 
_v04-000 Equated Symbols — 
| 39 ~sbttl Equated Symbols 
| g QVSS CONTROL CSRS 
00000 QVCSR_CTL fe 
0900009 64 QVCSR-CURPOS 22 
0000 65 QVCSR_MOUSE ss 4 
00 66 QVCSR-SPARE == 6 
00000008 68 QVCSR_CRTADDR == 8 
QO00000A SR-CRIDATA == 10 
88 C VCSR_INTDATA == 12 
0 SRIINTCTL == 14 
0000 72 QVCSR-URTBUFA == 38 
000 7 R_URTSTATA == 34 
0000 000 74 QVCSR_URTMODEA == 32 
00000024 0000 75 QVCSR_URTCMDA == 36 
0000002A 44 6 QVCSR_URTINT z= 42 
8 7 
9000 ig ; ovss ister definiti 
: register definitions 
— — 
0001E80 0000 vss = *x20000000+*017200 
$05¢0000 0000 8S Sereen = “x8r00 
0003F 800 88 4 scan_map = <254*1024> 
et CO 0000 5 column = scan_map-*x20 
OOO3F7E2 0000 86 row = scan_map-“xle 
0000 87 
0000 88 
88 89 ; 
000 90 ; CSR bit definitions 
0000 91 ; 
88 3 
00000001 0000 93 qvss$m_mode ss 
00000004 0000 94 qvss$m_viden == 4 
S80 88 95 qvss$m_curfun == 010 
0000001 000 96 qvss$m_vrdbk == “020 
00000020 0000 97 qvss$m_tstbit == “040 
00000080 00 98 qvss$m_curon == “0200 
00000100 00 99 qvss$m_msa == “0400 
00000200 00 100 qvss$m_msb == “01000 
00000400 0000 101 qvss$m_msc == “02000 
00 196 
00 1035; 
00 104 ; Keyboard UART values 
000 105 ; 
00 1 $ 
09000013 8 107 qvss$m_arl == *023 
0000000 0 108 qvss$m_mr2 == 7 
Boon TS 88 109 qvss$m_csra == 2083! 
00015 8 m qvss$m_cr == *o 
0000004 009 a qvss$m_txrdy == 4 
00001 B80 af qvss$m_rxrdy == 1 
0000: 000 115 -psect _QVSS_console,long 


90:48:09 YARAYES Magee Yn g? 


Page 
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CONTROL CSR 
CURSOR POSITION (OUTPUT) 
MOUSE INPUT (INPUT) 


ONTROLLER (ADDRESS SELECT) 
ONTROLLER (DATA PORT) 

RUPT CONTROLLER (DATA VALUES) 
RUPT CONTROLLER (CONTROL FIELD) 
DATA sree 
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222222 
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:QVSS 1/0 register base ogéress 
sscreen memory starts at 1/4 MB 
:scan maps starts at 254KB in memory 
scursor column position 

scursor row position 


: 18) or 15°' mode bit 

zvideo enable bit in csr 

scursor video function (1 = OR, 0 = AND) 
zsenable video readback 

ztest bit for mouse loopback testing 
scursor active 

zsmouse switch A 

smouse switch B 

zmouse switch C 


ino por tty. eight bits 

zsnormal chan mode, one stop bit 
34800 baud tx, rx rate 

sreset reg pointer, and enable tx,rx 


stransmitter ready bit 
sreceiver ready bit 
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ne 
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118 «sbttl OQVSS Input 
: : ; This routine is called to read the next character from the QVSS keyboard. | 
1 ; Inputs: 
158 
1246 ; None. 
0 125 ; 
00 1 $ ; Outputs: 
at 
} 8 ; r0 - Input character. 
900 150 ; Registers ri-sp are preserved. 
0000 131; 
0000 1 ; 
88 1 gyssSinput 3 
20001EA2 9F 01 3 000 134 108: tw Sqyseta_rardy.Qsquessquese urtstata;receiver ready? 
F7 13 0007 135 eq 108 zi? eql not ready 
50 20001EA6 9F 9A 0009 1 $ movzbl @#qvss+aqvcsr_urtbufa.r0 ;get character scan code 
0S 10 81 1 bsbb avss$keydecode translate the character 
50 » 001 138 tstl r0 idon't pass thru nulls 
EA 13 0014 139 beql 10$ zif eql get another character 
05 3016 140 rsb return 
001 141 
017 126 qvssS$keydecode:: 
50 683 8F 91 OO17 14 cmpb #*xb3,r0 zsallup? 
19 13 OO1B 144 beql 4$ zif eql yes 
50 AE BF 91 QO01D 145 cmpb #*xae,r0 sshift key? 
2— 13 0021 Hg beql 208 sif eql yes 
50 AF BF 91 00 ; 14 cmpb #*xaf,r0 control key? 
42 12 00 148 bneq 30$ zif neq no 
OQOOOOO7A"EF  O0000SC7"BF 01 Bose 149 cmpl #qvss$control_key-112,qvssS$keytable;control key active? 
12 4 150 bneq if neq set control key active 
OQOOOOO7A'EF QOO0004A7"EF DE 0036 151 4$ moval gvssSkey-112,qvssSkeytable; et address of translation table 
11. 0041 13 brb 08 : idĩn common code 
OOOOOO7A°EF OO000SC7"EF DE 0043 153 5$: moval qvss$control_key-112,qvss heytable;set address of translation table 
04 —84 154 108: clrl r0 zsindicate need more input 
05 its 13? rsb return 
OQOOOOO7A'EF 00000537°8F 01 81 157 20$: cmpl #qvss$shift_key-112,qvssSkeytable:shift key active?. 
D8 13 005C 158 beql * ;if neq set control key active | 
0000007A'°EF emus of 8 12 ~ gvesSshift_key-112.qvssSkeytable; set address of translation table 
r : 
68 161 
50 70 8F 91 88 8 30$: cmpb #112,r0 treat character as null? 
DD 1A per 16 bgtru 108% if gtru yes 
50  Q000007A'FF4O 3* ta) 8 408 *2* @qvss$keytable(r0),r0 ;get character from translation table 
O7A 166 
00000000 QO07A 167 qvssS$keytable:: .long 0 
OO7E 168 
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43 179 -sbttl QvSS Output 
3 176 3; This routine is called to output a character to the QvSS. 
7E 174 : Inputs: 
OE ine | 0 = Charact tput 
3 r0 = Character to output. 
OEE Event 
3; Outputs: 
O7E 138 ; 
Ore 183 3 The character is written to the QVSS video screen. 
7E 182 : Registers r0-sp are preserved. 
O7E 1 : ; — 
O7E 184 
O7E 185 qvss$output:: 3 
3 BB OO7E 186 pushr #*M<ri,r2,r3,r4,r5> save register ri to r5 
53 003C0000 8F D0 4 + 44 mov L #screen,r3 get address of video ram 
54 20001E80 8F 60 008 188 movl favss.r4 get address of qvss csrs 
93 10 OO8E 189 bsbb qysss utchar sOutput the character 
—E BA 0090 190 popr “M<ri,r2.r3.r4,r5> srestore registers ri to r5 
05 009 191 rs zre turn 
009 1395 
009 193 qvss$putchar:: 
51 $50 20 ¢3 009 194 subl3 #32,r0,r1 scontrol character? 
6A 19 0097 195 blss 10$ zif iss yes 
OOO3F7EO0 E3 0080 RF .B1 0099 196 cmpw #128, 1*column(r3) beyond right margin? 
13 QOA2 197 beql 5$ zif eql yes 
51 OA C& OOAS 198 mull #10,r1 :compute offset to character bitmap 
51 bay +4 3h 2 ed 9E OOA7 199 movab penctend rl sget address of character bitmap 
52 OQOO3F7E2 E53 3C OOAF 00 movzwl l*row(r3),r2 get current row 
52 00000500 8F ge 0086 01 mull #128*10,r scompute offset to character in row 
7E 0003F7E0 + C 00BD 8 movzwl l“column(r3),-(sp) zget current column 
Se 3 co 868 0 addl (s FES, compute starting screen address 
52. 634 9E 00C7 04 movab (r3)Cr2 3 sget address in screen buffer 
6 81 90 00CB 05 movb (r1)+,00128(r2) istransfer bitmap to screen buffer 
0080 C¢ 81 90 48 8 movb (r1)#,1*128(r2) : 
0100 C€ 81 90 00D 0 movb —31 8(r2) : 
0180 C 81 90 00D8 08 movb (r1)+,3*1 +h ) 3 
0200 C 81 90 O0DD 09 movb (r1)+,6#128(r2) : 
494 C 81 90 88 10 movb (r1)+,5*128(r2) : 
0300 C¢ 3 QOE 11 movb ri ie get (r2) : 
0380 C€ 1 90 QOEC \¢ movb (r1)+,7*128(r2) : 
ot C 3 9 Wit 1 movb (r1)+,8*128(r2) : 
80 C¢ 1 9 OF6 14 movb (r1)+,92128(r2) : 
OOO3F7EO E3 B86 O0FB 15 incw L*column(r3) sincrement column 
5D si 9101 16 5$ brb 80$ 3 
1985 
i 19 ; Control character output 
1 1° 
50 A 91 Q1 § 10$: cmpb #*xa,r0 i linefeed? 
, TS OF 3 beql 40$ zif eql yes 
50 8 3 : : * ———— shacks ace? 
e rife es 
so OF 69F 8183 55% ee tbett? 
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beql 
cmpb 
bneq 


clrw 
brb 


: Backspace 


208: tstw 
beql 
decw 
orb 

: Bell 

30$: movw 
brb 


: Linefeed 


40$: cmpw 


beql 
ncw 
brb 


50$: pushl 
mova 
move 
move 


aos: Pop! 


30$ 
#*xd,r0 
80$ 


; Carriage return 


L*column(r3) 
80$ 


—— 
L“column(r3) 
80$ 


#*xa7,qvcsr_urtbufa(r4) 
80$ 


#23,1*row(r3) 
L*row(r3) 
80$ 


8*10(r3),r2 
#128*10*23,(r 
#0,(sp),#0,#1 


Be 98:08:99 HaSOY Ee smesagsy nage 


sif oy" yes 
egerr age return? 
zif neq no 


;clear column number 


salready at left margin? 
sif eql yes 
zback up one column 


ring bell 


zbootom of screen? 
sif eql yes 
sincrement current row 


zsave r0 

:get address of second Line 
:scroll up : 

sclear the bo.rom Line 
restore r0 

sreturn 
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! Performance indicators ! 
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Phase Page faults CPU Time Elapsed Time 
Initialization 3 :00:00.0 : +8170 
ommand processing 1 :00: ?-8 :00:03.81 
a cant : 10 * 33 :12. : 
ymbo adie sor 2 2 2 2 
Pass 5 22 — : 2:43 0:00:07. 
Symbol table output 6 :00:00.0 3: 0.0 
Psect synopsis output 1 0:00:00.0 :00:00.0 
Cross-reference output 8 0:00:00.0 0:00: 2-9 
Assembler run totals 51 0:00:08.2 0:00:25.1 


Toe, york ing set Limit was 1200 pages. 

19345 bytes (38 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 42 non-local and 14 local symbols. 
1374 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 
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Macro Library name Macros defined 
-$255SDUA28: poets ns racers L851 0 
_8255$DUA28: (SYS.OBJILIB.MLB; 0 
$255$DUA28: (SYSLIBISTARLET.MLB;2 0 
TOTALS (all Libraries) 0 


0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:QVSS/OBJ=OBJ$:QVSS MSRC$:QVSS/UPDATE=(ENH$:QVSS) +EXECML$/L1B+L1B$:B00TS.MLB/LIB 
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